home *** CD-ROM | disk | FTP | other *** search
/ PC User 2004 August / Disc 1 / PCU0804CD1.iso / magstuff / MSOmacro / files / chanprnt.txt
Encoding:
Text File  |  2004-05-31  |  590 b   |  20 lines
  1. Sub changePrinter()
  2. crlf = Chr$(13)
  3. currentPrinter = ActivePrinter
  4. alternatePrinter = "hp deskjet 9300 series on LPT1:"
  5.  
  6. If ActivePrinter = "hp deskjet 9300 series on LPT1:" Then
  7.     alternatePrinter = "Fax on NEO1:"
  8. End If
  9.  
  10. Msg = "Current Printer is:" + crlf + currentPrinter
  11. Msg = Msg + crlf + "Change setting to " + alternatePrinter + "?"
  12.     Style = vbYesNo + vbQuestion + vbDefaultButton2
  13.     Title = "Change current Printer "
  14.     userResponse = MsgBox(Msg, Style, Title)
  15.     If userResponse = vbYes Then
  16.         ActivePrinter = alternatePrinter
  17.     End If
  18. End Sub
  19.  
  20.